﻿Imports System.Data
Imports MetodosComuns
Imports extranet.BC
Imports extranet.BE
Imports extranet.DA
Imports System.Collections.Generic

Partial Class LoginRecovery
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  End Sub

  Protected Sub btn_Solicitar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Solicitar.Click
    Dim strEmail As String = ""
    Dim strSenha As String = ""
    Try
      If txt_Login.Text.Trim().Length() = 0 Then
        lblErro.Text = "digite um nome de Login válido"
      Else
        'Localizar Usuário
        Dim objBEUsuarios As IList(Of BEUsuario) = BCUsuario.Selecionar(txt_Login.Text)
        If objBEUsuarios.Count() = 1 Then
          strEmail = objBEUsuarios(0).Email
          strSenha = objBEUsuarios(0).Senha
        Else
          Dim objBECandidato As BECandidato = BCCandidato.SelecionarPeloUsuario(txt_Login.Text)
          strEmail = objBECandidato.Email
          strSenha = objBECandidato.Senha
        End If
        If strEmail.Length() > 0 Then
          ' Envio de email
          Dim strCorpo As String = "Você solicitou sua senha de acesso ao nosso sistema de Extranet da FIT4.<br/><br/>" & _
                                   "Anote sua senha: " & strSenha & "<br/><br/>" & _
                                   "Você poderá alterar sua senha acessando a opção ""Meu Perfil"" no link ""Editar meu perfil"".<br/><br/>" & _
                                   "Clique no link http://extranet.fit4.com.br para acessar o Portal<br/><br/>" & _
                                   "FIT4"
          MetodosComuns.EnviaEmail(strEmail, _
                                   strCorpo, _
                                   "Solicitação de Senha", _
                                   STREMAILFIT4, _
                                   STREMAILFIT4)
          lblErro.Visible = False
          pnl_Login.Visible = False
          pnl_Sucesso.Visible = True
        Else
          lblErro.Text = "O nome de Login não foi encontrado nos nossos registros.<br/>" & _
                         "Por favor entre em contato com nossa Central de Atendimento para melhor ajudá-lo."
        End If
      End If
    Catch ex As Exception
      lblErro.Text = "Não foi possível completar a operação.<br/>" & _
                     "Por favor entre em contato com nossa Central de Atendimento para melhor ajudá-lo."
    End Try
  End Sub

  Protected Sub btn_Login_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Login.Click
    Response.Redirect("~/")
  End Sub

End Class
